home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1995 March / Macworld CD-ROM (March 1995).cdr / Demos / Paper Planes / P17-20 / 00046.ls < prev    next >
Encoding:
Text File  |  1994-08-25  |  305 b   |  14 lines
  1. on mouseDown
  2.   global theVCRButtons, lastQT
  3.   mCancelPlay(theVCRButtons)
  4.   mCancelFastFwd(theVCRButtons)
  5.   unLoadCast(lastQT)
  6. end
  7.  
  8. on mouseUp
  9.   global theGauge
  10.   set toStep to mComputeNewLevel(theGauge, the mouseV)
  11.   mSetLevel(theGauge, toStep)
  12.   go(label("P" & string(Plane) & "S" & string(toStep)))
  13. end
  14.